perm filename LOSS.1[TIM,LSP]3 blob sn#656547 filedate 1982-05-03 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DECLARE (SPECIAL N)(FIXNUM N))
C00006 ENDMK
CāŠ—;
(DECLARE (SPECIAL N)(FIXNUM N))
(SETQ N 0)

 (DEFUN TAK (X Y Z) 
    (SETQ N (1+ N))
    (COND ((NOT (< Y X)) Z)
	  (T (TAK (TAK (1- X) Y Z)
		  (TAK (1- Y) Z X)
		  (TAK (1- Z) X Y)))))